home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 3-Presentations / Apple Computer Inc. / Industry Competition / K-12 Interface Study / DOSWr / DOSWr.rsrc / BITD_1035 (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-10-25  |  1KB  |  22 lines
  1.                                                                                             >R8?^Rr=?\MH=><?M68=?>??8?7?<.M>?L>A4MA?M.?<6H6>H67?74?A?7?=7R7?>H?A5<?>7?H6>>?                                                            EQV
  2. 1Mr5#4885156910'6601603139==?R78H4>7?H?>?52?M4?H6A                                                                 ?A?<M=<?L7=H?HR>%1.03654e-17'%??6?=?A/7M>7?7RMEQV
  3. 1?r156<0x1e1b7a2>6-5.61632e-370.0444336                                                                        5>M67R=>R.?M=M>?HRH<MM7M>>H?<>M70M;Mr>??EXP>649648965432.96843e-06>?HM<>                                                                             L>H
  4. IMPIMPAND<0x60><0x46>GOTOnCALLGOTOHFrrEXP%<0x7e><0x1e1b866>Jlabel117d$4'-jk/]ASCELSE^@<HpHGH22MELSEp[2Hs?F7HLML7                                                                             L<L7:2>LEXP><0x1e1b8cc>5%rr7<0x1e1b8d2><0x1e1b8d3>$,0?/?>?r*.A5A~^>
  5. \<0x7f>AND<0x55>VALVAL}~}~MKD$YASCASC1519145010   6+<0x1e1b934>/$9.19167e-210                                             ASC($91'(0$99$0-99(??$675226404,$23$ASCEXP'                                       ASCm0label020e0                                                     ?5r^5056166700<0x1e1ba0c>
  6. <0x68,0xfffffffb>-u65927k~<0x1e1ba19>ASCASC#55205k2<0x1e1ba25>2<0x1e1ba27>-<0x1e1ba29>0m235079973,5<0x1e1ba37>label0216COS4<0x7d>label271bijlASCEXP2<0x1e1ba47><0x1e1ba48>85<0x1e1ba4b>6149label052aMKI$#<0x1e1ba55>EXP'%}5m95EXP65                              ,
  7. <0x7f><0x7f>MKL$5<0x1e1baa8>label02054.90185e+27ELSEIF'<0x1e1bab3>MKI$,4.22082e-316   <0x7e>label0000                             <0x1e1bb32>label021dVAL<0x1e1bb37>FN<0x1e1bb3d><0x7d>label0805<0x55>VALMKD$RIGHT$ASC<0x1e1bb47>-<0x48>m<0x1e1bb57><0x20>ASC6label031e,-^95ASCEXP+<0x1e1bb68><0x7d>label0609READ
  8. <0xb6,0x00>STR$<0x1e1bb72><0x7d>label269cFNSTR$RIGHT$SGN<0x54>#2333?EXP92.58872e-3163'0788-7<0x1e1bb96>10287<0x1e1bb9b><0x1e1bb9c><0x7e>'?EXPEXP2<0x1e1bba7><0x1e1bba8>1.90876e-31539509701176EXPSGN7<0x1e1bbbb><0x1e1bbbc>6ASC]]59^CALL*65026<0x1e1bbca>2RIGHT$
  9. <0x7f><0x7f>STR$<0x1e1bbd1><0x7d>label331fLENGOSUBmASCCALL'4<0x1e1bbdd>7-kSGN^7        
  10.                                        $0<0x1e1bc58>'3<0x1e1bc5b>0$-90hASChASC                 <0x1e1bca2><0x1e1bca3><0x7c><0x48>ASC<0x1e1bcad>ASCELSEIF1<0x1e1bcb3>Y09YEXP92<0x1e1bcbf><0x1e1bcc2>,/
  11. \                                                                                                                                       <0x1e1bcf2>63$<0x20>ASC(<0x1e1bcf9>EXP]$7978?EXP-5 +7.53498e-316<0x1e1bd12>'2.24258e-31554$*Y>=CALL4<0x1e1bd28><0xd8,0xfffffffb>V<0x1e1bd2c>label0277<i<0x1e1bd32>label0e36ASC%<0x1e1bd38>label0209++i?]^.8.63725e-21<0x1e1bd48>ASC
  12. \<0x7f><0x62>RETURNCOS1isMKD$Mp=rEXP%<0x1e1bd5a>2176068635label03248<0x1e1bd66><0x1e1bd67><0x1e1bd68>7<0x1e1bd6c><0x1e1bd6d><0x1e1bd74>label051d1282FNh}ASCASClabel03086<0x56>j<0x1e1bd93>'MKI$$2<0x1e1bd9c>$k<0x1e1bd9f>kASC9=5H<7CALLr_MOD
  13. 6GOSUBMKD$EXP^%453.51843e-315.2.57643e-315!                                     1.74754e-315%.HM>ArM14.07365e-315%Fr1<0x7e>1.01167e-315MLHMH>                                                                        ?<?M>>MOD
  14. <0x7e>?$'0?Y0<0x7e>$<0x1e1be78>00(($$0<0x20>($((<0x7e>0<0x1e1be87>($(kRIGHT$0<0x7e>(9k0LETYY                                                                                                                               0(k}RIGHT$MKD$WHILERIGHT$}<0x20>RIGHT$ASCk-(0<0x1e1bed3><0x1e1bed4><0x7d>0127YY(0?05??6?89?
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.